10 ROM=198:POKE53280,1:POKE53281,1:REM            FOR COMMODORE 64
100 GG$=" "
120 DIMA(7),A%(7),B(7),B%(8,8),N$(2):SQ=49:OPEN1,0,0:M$="[147]"
125 PRINT M$:INPUT" DEUTSCHE ANLEITUNG  J/N ";DT$
126 IF DT$="J"THEN GOSUB900:GOTO810
130 PRINTM$"DO YOU NEED INSTRUCTIONS Y/N "
140 GETU$:IFU$=""THEN140  
150 IFU$<>"Y"ANDU$<>"N"THEN140  
160 IFU$="Y"THEN700  
170 FORJ=1TO2:PRINTM$"NAME SPIELER"J"(MAX.=6 BUCHST.) ? ";:INPUT#1,N$(J)
180 IFLEN(N$(J))>6THENN$(J)=MID$(N$(J),1,6)
190 NEXT
200 PRINT"[147][144]":FORZ=1TO15
210 PRINT" [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]"
220 NEXT
230 FORZ=1TO2:PRINT" [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]":NEXT
240 PRINT"    1    2    3    4    5    6    7"
250 FORF=1TO7:READA(F):NEXT
260 DATA1187,1267,1347,1427,1507,1587,1667
270 FORF=1TO7:READB(F):NEXT
280 DATA1027,1032,1037,1042,1047,1052,1057
290 PRINTGG$;N$(1)"=  [146]="WH;"          "N$(2)"=[166][166]="BL
300 GETR$:IFR$=""THEN300  
310 IFVAL(R$)=0ORVAL(R$)>7THEN300  
320 R=VAL(R$)
330 IFA%(R)=7THEN300  
340 IFN=160THENN=102:POKE1989,81:POKE56261,0:POKE2012,32:GOTO360
350 N=160:POKE2012,81:POKE56284,0:POKE1989,32
360 GOSUB400  :A%(R)=A%(R)+1:GOTO430  
370 SQ=SQ-1:POKEROM,0
380 IFSQ=0THENPRINT""SPC(15)"NO WINNER!!":FORBB=1TO1500:NEXT:GOTO640  
390 GOTO300  
400 FORW=B(R)TOA(7-A%(R))+5*RSTEP40
410 FORQ=WTOW+2:POKEQ+40,N:POKEQ-40,32:NEXT:POKEA,N/2:FORT=1TO5:NEXT:POKEA,0
420 NEXT:RETURN
430 B%(R,A%(R))=N
440 FORH=A%(R)TO1STEP-1:IFB%(R,H)<>NTHEN460  
450 CO=CO+1:NEXT
460 IFCO>=4THEN570  
470 FORH=1TO3:IFB%(R+H,A%(R))=NTHENNEXT
480 FORI=1TO3:IFB%((R-I),A%(R))=NTHENNEXT
490 IFI+H>4THEN570  
500 FORH=1TO3:IFB%(R+H,A%(R)+H)=NTHENNEXT
510 FORI=1TO3:IFB%(R-I,A%(R)-I)=NTHENNEXT
520 IFI+H>4THEN570  
530 FORH=1TO3:IFB%(R-H,A%(R)+H)=NTHENNEXT
540 FORI=1TO3:IFB%(R+I,A%(R)-I)=NTHENNEXT
550 IFI+H>4THEN570  
560 CO=0:GOTO370  
570 FORL=1TO3:FORQ=0TO255STEP5:POKEA,Q:NEXT:POKEA,0:NEXT
580 FORW=1074TO1114STEP40
590 FORQ=WTOW+2:POKEQ,N:NEXT:NEXT
600 PRINT""SPC(14)"IS THE WINNER !!!"
610 FORRR=1TO3000:NEXT
620 IFN=102THENBL=BL+1:GOTO640  
630 WH=WH+1
640 RESTORE:FORXX=1TO7:A%(XX)=0:NEXT:SQ=49:CO=0
650 FORXX=1TO7:FORXV=1TO7:B%(XX,XV)=0:NEXT:NEXT
660 PRINT"";:FORTV=1TO3:PRINT"                                       ";:NEXT
670 PRINT:FORZ=1TO15
680 PRINT"[144] [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]"
690 NEXT:POKEROM,0:N=102:POKE1989,81:POKE2012,32:GOTO250
700 PRINT"[147]   ";
710 POKE53272,23:FOREE=1TO22:PRINT"C[207][206][206][197][195][212] F[207][213][210][157][157][157][157][157][157][157][157][157][157][157]";:NEXT
720 FORT=1TO2000:NEXT:PRINT"[147]"
730 PRINT"   T[200][197] [207][194][202][197][195][212] [207][198] [212][200][197] [199][193][205][197] [201][211] [212][207] [199][197][212] [198][207][213][210][207][198] [217][207][213][210] [208][201][197][195][197][211] [201][206] [193] [210][207][215]";
740 PRINT". Y[207][213] [195][193][206] [196][207] [212][200][201][211][200][207][210][201][218][207][206][212][193][204][204][217],[214][197][210][212][201][195][193][204][204][217],[207][210] [196][201][193][199][207][206][193][204][204][217]."
750 PRINT"  T[207] [205][207][214][197],[217][207][213] [193][206][196][160][217][207][213][210] [207][208][208][207][206][197][206][212] [212][193][203][197] [212][213][210][206][211][160][196][210][207][208][208][201][206][199] [217][207][213][210] [207][215][206] ";
760 PRINT"[195][207][204][207][210][197][196] [208][201][197][195][197] [201][206][212][207] [207][206][197][160][207][198][160][212][200][197][160][211][197][214][197][206][160][206][213][205][194][197][210][197][196][160][195][207][204][213][205][206][211].Y[207][213] [196][207][160][212][200][201][211]";
770 PRINT" [194][217] [212][217][208][201][206][199][160][212][200][197][160][206][213][205][194][197][210][160][207][198][160][212][200][197][160][195][207][204][213][205][206][201][206] [215][200][201][195][200][160][217][207][213][160][215][201][211][200][160][212][207][160][196][210][207][208][160][193]";
780 PRINT" [208][201][197][195][197].I [215][201][204][204][160][211][201][199][206][193][204][160][201][198][160][207][206][197] [207][198] [217][207][213] [215][201][206][211][160][193][206][196] [212][197][204][204][160][217][207][213][160][215][200][207][160][200][193][211][160][215][207][206]";
790 PRINT".  I [215][201][204][204] [208][210][201][206][212] [193] [194][193][204][204] [213][206][196][197][210] [217][207][213][210] [206][193][205][197][160][215][200][197][206][160][201][212]'[211] [217][207][213][210] [212][213][210][206].";
800 PRINT"W[200][201][212][197] [199][207][197][211] [198][201][210][211][212].";
810 PRINTSPC(7)"PRESS ANY KEY !"
820 GETU$:IFU$<>""THENPOKE53272,21:GOTO170
830 GOTO820  
900 PRINT"[147] CONNECT FOUR - FUER 2 MITSPIELER"
901 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
905 PRINT"DAS ZIEL IST ES 4 STEINE IN EINER REIHE"
910 PRINT"ZU PLAZIEREN,ENTWEDER IN HORIZONTALER"
915 PRINT"VERTIKALER ODER DIAGONALER FOLGE."
920 RETURN